home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1998 February / Amiga-CD 1998 #2.iso / software / dito / arexx / golded / findword_dictionary.ged next >
Text File  |  1997-02-05  |  742b  |  46 lines
  1. /*
  2. **  FindWord © Dirk Holtwick, 1997
  3. **
  4. **  Small example for an ARexx-Script using the Dictionary
  5. **  tool out of GoldEd
  6. **
  7. **  If you want to use this script you may want to change some
  8. **  lines, so that your prefered vocabulary file will be
  9. **  automatically loaded.
  10. */
  11.  
  12. OPTIONS RESULTS
  13.  
  14. 'LOCK CURRENT RELEASE=4'
  15. IF RC ~= 0 THEN EXIT
  16.  
  17. 'QUERY WORD'
  18. w = RESULT
  19.  
  20. /*
  21. **  Starting and waiting for FastDict
  22. */
  23.  
  24. IF ~SHOW('Ports','DICT') THEN DO
  25.   ADDRESS 'COMMAND'
  26.   'Run <>nil: DITO:Dictionary' /* <-- You may add the name of an vocabulary file here */
  27.   'SYS:RexxC/WaitForPort DICT'
  28.   ADDRESS
  29. END
  30.  
  31. /*
  32. **  If active ask for word
  33. */
  34.  
  35. IF SHOW('Ports','DICT') THEN DO
  36.  
  37.    ADDRESS 'DICT' 'SHOW'
  38.    ADDRESS 'DICT' 'SETWORD' w
  39.  
  40. END
  41.  
  42. 'UNLOCK'
  43.  
  44. EXIT
  45.  
  46.